home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / tftb.zip / BLANK.SLT < prev    next >
Text File  |  1992-04-24  |  4KB  |  74 lines
  1. ////////////////////////////////////////////////////////////
  2. // PROGRAM: BLANK.SLT                                     //
  3. // AUTHOR:  Christopher Saunders                          //
  4. // DATE:    April 25th 1992                               //
  5. //                                                        //
  6. // INFORMATION                                            //
  7. // ~~~~~~~~~~~                                            //
  8. // This is a screen blanking script for Telix.  Use it to //
  9. // blank your  screen if  you are going  to be away for a //
  10. // long period of time.  It is especially  useful in case //
  11. // there are any nosey people  around, and you don't want //
  12. // them to see what you are up to!                        //
  13. //                                                        //
  14. // Pressing the space bar will return you to Telix.       //
  15. ////////////////////////////////////////////////////////////
  16.  
  17.  
  18. main()
  19. {
  20.   int chr, inchr, done, vhandle_1;
  21.  
  22.   vhandle_1 = vsavearea(0, 0, 80, 25);  //  Save original screen
  23.   cursor_onoff(0);                      //  Disable cursor
  24.  
  25.  
  26. //  box(0, 0, 80, 25, 0, 15);
  27.  
  28.  
  29.  
  30. //Prints blank screen
  31.  
  32. pstraxy("                                                                                ",0,1,15);
  33. pstraxy("                                                                                ",0,2,15);
  34. pstraxy("                                                                                ",0,3,15);
  35. pstraxy("                                                                                ",0,4,15);
  36. pstraxy("                                                                                ",0,5,15);
  37. pstraxy("                                                                                ",0,6,15);
  38. pstraxy("                                                                                ",0,7,15);
  39. pstraxy("                                                                                ",0,8,15);
  40. pstraxy("                                                                                ",0,9,15);
  41. pstraxy("                                                                                ",0,10,15);
  42. pstraxy("                                                                                ",0,11,15);
  43. pstraxy("                                                                                ",0,12,15);
  44. pstraxy("                                                                                ",0,13,15);
  45. pstraxy("                                                                                ",0,14,15);
  46. pstraxy("                                                                                ",0,15,15);
  47. pstraxy("                                                                                ",0,16,15);
  48. pstraxy("                                                                                ",0,17,15);
  49. pstraxy("                                                                                ",0,18,15);
  50. pstraxy("                                                                                ",0,19,15);
  51. pstraxy("                                                                                ",0,20,15);
  52. pstraxy("                                                                                ",0,21,15);
  53. pstraxy("                                                                                ",0,22,15);
  54. pstraxy("                                                                                ",0,23,15);
  55. pstraxy("                                                                                ",0,24,15);
  56. pstraxy("                                                                                ",0,25,15);
  57.  
  58. // End of blank screen
  59.  
  60. _scr_chk_key = 0;                     //  Disable ESC checking
  61.  
  62. while(not done)
  63. {
  64. inchr = inkeyw();                   //  Wait for input from keyboard
  65.  
  66.     if(inchr == 32)                               //  F1
  67.       done = 1;
  68.   }
  69.  
  70.   _scr_chk_key = 1;        //  Enable ESC checking
  71.   cursor_onoff(1);              //  Enable cursor
  72.   vrstrarea(vhandle_1);        //  Restore original screen
  73. }
  74.